home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / schule&wissen / ditovocs / install < prev    next >
Encoding:
Text File  |  1996-07-16  |  1.5 KB  |  76 lines
  1. ; Very simple installer script for DITO vocabularies
  2. ; --------------------------------------------------
  3.  
  4. (set destname
  5.    (askdir
  6.       (prompt "Where is your vocabulary drawer?")
  7.       (help @askdir-help)
  8.       (default "DITO:vocs")
  9.    )
  10. )
  11.  
  12. (set ch
  13.    (askoptions
  14.       (prompt "Wich vocabularies would you like to use?")
  15.       (help @askoptions-help)
  16.       (choices
  17.          "English   - German"
  18.          "Spanish   - German (new!)"
  19.          "Icelandic - German"
  20.          "Italian   - German"
  21.          "Latin     - German (more!)"
  22.       )
  23.       (default 255)
  24.    )
  25. )
  26.  
  27. (if (bitand ch 1)
  28.    (copyfiles
  29.       (prompt "Copying 'English-German' files")
  30.       (help @copyfiles-help)
  31.       (source "English")
  32.       (dest (tackon destname "English"))
  33.       (all)
  34.    )
  35. )
  36.  
  37. (if (bitand ch 2)
  38.    (copyfiles
  39.       (prompt "Copying 'Spanish-German' files")
  40.       (help @copyfiles-help)
  41.       (source "Master")
  42.       (dest (tackon destname "Master"))
  43.       (pattern "Spanisch#?")
  44.    )
  45. )
  46. (if (bitand ch 4)
  47.    (copyfiles
  48.       (prompt "Copying 'Icelandic-German' files")
  49.       (help @copyfiles-help)
  50.       (source "Master")
  51.       (dest (tackon destname "Master"))
  52.       (pattern "Isländisch#?")
  53.    )
  54. )
  55.  
  56. (if (bitand ch 8)
  57.    (copyfiles
  58.       (prompt "Copying 'Italian-German' files")
  59.       (help @copyfiles-help)
  60.       (source "Italiano")
  61.       (dest (tackon destname "Italiano"))
  62.       (all)
  63.    )
  64. )
  65.  
  66. (if (bitand ch 16)
  67.    (copyfiles
  68.       (prompt "Copying 'Latin-German' files")
  69.       (help @copyfiles-help)
  70.       (source "Latinum")
  71.       (dest (tackon destname "Latinum"))
  72.       (all)
  73.    )
  74. )
  75.  
  76.